#!
my $Usage = "Usage:\n\tperl delete_files.pl file_contain_list\n";

if(@ARGV!=1)
{
	print $Usage;
	exit;
}

open(FILENAMES,$ARGV[0])||die"error open file:$ARGV[0]\n$!\n";
@files = <FILENAMES>;
chomp @files;
system("del $_") foreach (@files);